﻿<!-- #include file="Include/Admin_Onlogin.asp" -->
<%
Response.Write "<!DOCTYPE html>" & vbCrLf
Response.Write "<head>" & vbCrLf
Response.Write "<title>后台管理首页</title>" & vbCrLf
Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=utf-8'>" & vbCrLf
Response.Write "<meta name='viewport' content='width=device-width, initial-scale=1, maximum-scale=1'>" & vbCrLf
Response.Write "<meta name='apple-mobile-web-app-status-bar-style' content='black'>" & vbCrLf
Response.Write "<meta name='apple-mobile-web-app-capable' content='yes'>" & vbCrLf
Response.Write "<meta name='format-detection' content='telephone=no'>" & vbCrLf
Response.Write "<link rel=""stylesheet"" type=""text/css"" href=""fonts/font-awesome/css/font-awesome.min.css"" />" & vbCrLf
Response.Write "<link href=""Plugins/layui/css/layui.css"" rel=""stylesheet"" type=""text/css"" />" & vbCrLf
Response.Write "<link href=""Style/global.css"" rel=""stylesheet"" type=""text/css"" />" & vbCrLf
Response.Write "<link href=""Style/font.css"" rel=""stylesheet"" type=""text/css"" />" & vbCrLf
Response.Write "<script type='text/javascript'>" & vbCrLf
Response.Write "var pc_file = '" & InstallDir & "';" & vbCrLf
Response.Write "var admin_file = '" & AdminFolder & "/';" & vbCrLf
Response.Write "</script>" & vbCrLf
Response.Write "<script type='text/javascript' src='Js/Admin.js'></script>" & vbCrLf
Response.Write "<script type='text/javascript' src='../Dialog/main.js'></script>" & vbCrLf
Response.Write "<script type='text/javascript' src='../Dialog/lhgcore.min.js'></script>" & vbCrLf
Response.Write "<script type='text/javascript' src='../Dialog/lhgcalendar.min.js'></script>" & vbCrLf
Response.Write "<script type=""text/javascript"" src=""Plugins/layui/layui.js""></script>" & vbCrLf
Response.Write "</head>" & vbCrLf
Response.Write "<body>" & vbCrLf
Response.Write "<div class=""admin-main layui-anim layui-anim-upbit"">" & vbCrLf
Response.Write "    <blockquote class=""layui-elem-quote layui-bg-green"">" & vbCrLf
Response.Write "        亲爱的" & UserName & "<span id=""nowTime""></span>" & vbCrLf
Response.Write "    </blockquote>" & vbCrLf
dim FieldXML,Nodek,NodeXML,Fast,Fasturl,Attribute
call IndexXMLField(Login_Username)
set FieldXML = Server.CreateObject("Microsoft.XMLDOM")
FieldXML.async = false
FieldXML.setProperty "ServerHTTPRequest", true 
FieldXML.load(Server.MapPath("Include/FilMk/"& Login_Username &"_Mk_a.xml"))
Set NodeXML=FieldXML.DocumentElement.SelectNodes("item")
Response.Write "    <div class=""layui-row layui-col-space10 panel_box"">" & vbCrLf
For Each Nodek In NodeXML
Fast=Nodek.SelectSingleNode("Fast").text 
Fasturl=Replace(Nodek.SelectSingleNode("Fasturl").text,"|Fast|","&")
Attribute=Nodek.SelectSingleNode("Attribute").text
i=i+1
Response.Write "        <div id=""cpbox_" & i & """ class=""panel layui-col-xs12 layui-col-sm6 layui-col-md4 layui-col-lg2"">" & vbCrLf
Response.Write "            <a id=""url_" & Nodek.SelectSingleNode("@id").text & """ href=""javascript:;"" data-url=""" & Fasturl & """ onmouseover=""layer.tips('" & Fast & "',this,{tips: [1, '#000']});"" onmouseout=""layer.closeAll();"">" & vbCrLf
Response.Write "                <div class=""panel_icon layui-bg-green"">" & vbCrLf
Response.Write "                    <i id=""img_" & Nodek.SelectSingleNode("@id").text & """ class=""layui-anim icon " & Nodek.SelectSingleNode("Fastico").text  & """></i>" & vbCrLf
Response.Write "                </div>" & vbCrLf
Response.Write "                <div class=""panel_word"">" & vbCrLf
Response.Write "                    <span>" & Fast & "</span>" & vbCrLf
Response.Write "                    <cite>" & Fast & "</cite>" & vbCrLf
Response.Write "                </div>" & vbCrLf
Response.Write "            </a>" & vbCrLf
Response.Write "            <span class=""delico""><img title=""删除快捷"" src=""Images/FilMk/mk_del.png"" onClick=""delbox(this,'" & Nodek.SelectSingleNode("@id").text & "')""/></span>" & vbCrLf
Response.Write "        </div>" & vbCrLf
Next
Response.Write "        <div id=""cpboxadd"" class=""panel layui-col-xs12 layui-col-sm6 layui-col-md4 layui-col-lg2"">" & vbCrLf
Response.Write "            <a href=""javascript:;"" data-url=""Admin_Icons.asp"" onmouseover=""layer.tips('图标管理',this,{tips: [1, '#000']});"" onmouseout=""layer.closeAll();"">" & vbCrLf
Response.Write "                <div class=""panel_icon layui-bg-cyan"">" & vbCrLf
Response.Write "                    <i class=""layui-anim layui-icon"" data-icon=""&#xe857;"">&#xe857;</i>" & vbCrLf
Response.Write "                </div>" & vbCrLf
Response.Write "                <div class=""panel_word outIcons"">" & vbCrLf
Response.Write "                    <span></span>" & vbCrLf
Response.Write "                    <em>图标管理</em>" & vbCrLf
Response.Write "                    <cite class=""layui-hide"">图标管理</cite>" & vbCrLf
Response.Write "                </div>" & vbCrLf
Response.Write "            </a>" & vbCrLf
Response.Write "        </div>" & vbCrLf
Response.Write "        <div class=""panel layui-col-xs12 layui-col-sm6 layui-col-md4 layui-col-lg2"">" & vbCrLf
Response.Write "            <a href=""javascript:;"" onmouseover=""layer.tips('上次登录时间',this,{tips: [1, '#000']});"" onmouseout=""layer.closeAll();"">" & vbCrLf
Response.Write "                <div class=""panel_icon layui-bg-blue"">" & vbCrLf
Response.Write "                    <i class=""layui-anim icon icon-clock""></i>" & vbCrLf
Response.Write "                </div>" & vbCrLf
Response.Write "                <div class=""panel_word"">" & vbCrLf
Response.Write "                    <span class=""loginTime"">"&LastLoginTime&"</span>" & vbCrLf
Response.Write "                    <cite>上次登录时间</cite>" & vbCrLf
Response.Write "                </div>" & vbCrLf
Response.Write "            </a>" & vbCrLf
Response.Write "        </div>" & vbCrLf
Response.Write "        <div class=""panel layui-col-xs12 layui-col-sm6 layui-col-md4 layui-col-lg2"">" & vbCrLf
Response.Write "            <a href=""javascript:;"" onClick=""sel_mk();"" onmouseover=""layer.tips('添加快捷',this,{tips: [1, '#000']});"" onmouseout=""layer.closeAll();"">" & vbCrLf
Response.Write "                <div class=""panel_icon layui-bg-black"">" & vbCrLf
Response.Write "                    <i class=""layui-anim icon icon-plus""></i>" & vbCrLf
Response.Write "                </div>" & vbCrLf
Response.Write "                <div class=""panel_word"">" & vbCrLf
Response.Write "                    <span>添加快捷</span>" & vbCrLf
Response.Write "                    <cite>添加快捷</cite>" & vbCrLf
Response.Write "                </div>" & vbCrLf
Response.Write "            </a>" & vbCrLf
Response.Write "        </div>" & vbCrLf
Response.Write "    </div>" & vbCrLf
Response.Write "    <blockquote class=""layui-elem-quote main_btn"">" & vbCrLf
Response.Write "        <p>欢迎您进入"&SiteName&"企业网站系统科技版--后台管理网站后台管理系统！在这里您可以利用系统提供的强大功能，便捷的后台管理功能，栏目无限级栏目，产品管理，新闻管理等功能有效地管理网站。您可以随时使用顶部的关闭左栏功能关闭或打开左边的管理导航，以扩展操作界面。</p>" & vbCrLf
Response.Write "    </blockquote>" & vbCrLf
Response.Write "    <div class=""layui-row layui-col-space10"">" & vbCrLf
Response.Write "        <div class=""layui-col-md12"">" & vbCrLf
Response.Write "            <blockquote class=""layui-elem-quote title"">系统基本参数</blockquote>" & vbCrLf
Response.Write "            <table class=""layui-table magt0"">" & vbCrLf
Response.Write "                <tbody>" & vbCrLf
Dim AdminSessionTimeout
If Code_CLng(Trim(Cookies_Get(Cookies_For&"AdminSessionTimeout")))<>0 Then
	AdminSessionTimeout = SplitTime(Code_CLng(Trim(Cookies_Get(Cookies_For&"AdminSessionTimeout")))*60)
Else
	AdminSessionTimeout = "不限制"
End If
If Code_CLng(AdminGroupID) <> 0 Then
	AdminGroupName = "<a href=""javascript:;"" data-url=""Admin/Admin_ShowPurview.asp"" onmouseover=""layer.tips('查看管理权限',this,{tips: [1, '#000']});"" onmouseout=""layer.closeAll();"" class=""blue""><span>" & GroupName & "</span><cite class=""layui-hide"">查看管理权限</cite></a>"
Else
	AdminGroupName = "超级管理员"
End If
Response.Write "                <tr>" & vbCrLf
Response.Write "                    <td>超时</td>" & vbCrLf
Response.Write "                    <td class=""t4"">" & AdminSessionTimeout & "</td>" & vbCrLf
Response.Write "                </tr>" & vbCrLf
Response.Write "                <tr>" & vbCrLf
Response.Write "                    <td>当前用户权限</td>" & vbCrLf
Response.Write "                    <td class=""t4 purview"">" & AdminGroupName & "</td>" & vbCrLf
Response.Write "                </tr>" & vbCrLf
Response.Write "                <tr>" & vbCrLf
Response.Write "                    <td>当前版本</td>" & vbCrLf
Response.Write "                    <td class=""t4"">"&CHR(118)&SystemVersion&"</td>" & vbCrLf
Response.Write "                </tr>" & vbCrLf
Response.Write "                <tr>" & vbCrLf
Response.Write "                    <td>服务器软件的名称</td>" & vbCrLf
Response.Write "                    <td class=""t4"">" & Request.ServerVariables("SERVER_SOFTWARE") & "</td>" & vbCrLf
Response.Write "                </tr>" & vbCrLf
Response.Write "                <tr>" & vbCrLf
Response.Write "                    <td>浏览器版本</td>" & vbCrLf
Response.Write "                    <td class=""t4"">" & Request.ServerVariables("Http_User_Agent") & "</td>" & vbCrLf
Response.Write "                </tr>" & vbCrLf
Response.Write "                <tr>" & vbCrLf
Response.Write "                    <td>服务器域名</td>" & vbCrLf
Response.Write "                    <td class=""t4"">" & Request.ServerVariables("SERVER_NAME") & "&nbsp;/&nbsp;" & Request.ServerVariables("HTTP_HOST") & "</td>" & vbCrLf
Response.Write "                </tr>" & vbCrLf
Response.Write "                <tr>" & vbCrLf
Response.Write "                    <td>服务器类型</td>" & vbCrLf
Response.Write "                    <td class=""t4"">" & Request.ServerVariables("OS") & "(IP：" & Request.ServerVariables("LOCAL_ADDR") & ")</td>" & vbCrLf
Response.Write "                </tr>" & vbCrLf
Response.Write "                <tr>" & vbCrLf
Response.Write "                    <td>站点物理路径</td>" & vbCrLf
Response.Write "                    <td class=""t4"">" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "</td>" & vbCrLf
Response.Write "                </tr>" & vbCrLf
Response.Write "                <tr>" & vbCrLf
Response.Write "                    <td>脚本解释引擎</td>" & vbCrLf
Response.Write "                    <td class=""t4"">" & ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion & "." & ScriptEngineBuildVersion  & "</td>" & vbCrLf
Response.Write "                </tr>" & vbCrLf
Response.Write "                <tr>" & vbCrLf
Response.Write "                    <td>FSO文本读写</td>" & vbCrLf
Response.Write "                    <td class=""t4"">" & Object_Install_GetVer("Scripting.FileSystemObject",1) & "</td>" & vbCrLf
Response.Write "                </tr>" & vbCrLf
Response.Write "                <tr>" & vbCrLf
Response.Write "                    <td>数据库使用</td>" & vbCrLf
Response.Write "                    <td class=""t4"">" & Object_Install_GetVer("adodb.connection",1) & "</td>" & vbCrLf
Response.Write "                </tr>" & vbCrLf
Response.Write "                <tr>" & vbCrLf
Response.Write "                    <td>数据流读写</td>" & vbCrLf
Response.Write "                    <td class=""t4"">" & Object_Install_GetVer("ADODB.Stream",1) & "</td>" & vbCrLf
Response.Write "                </tr>" & vbCrLf
Response.Write "                <tr>" & vbCrLf
Response.Write "                    <td>XMLHTTP组件支持</td>" & vbCrLf
Response.Write "                    <td class=""t4"">" & Object_Install_GetVer("Microsoft.XMLHTTP",1) & "</td>" & vbCrLf
Response.Write "                </tr>" & vbCrLf
Response.Write "                <tr>" & vbCrLf
Response.Write "                    <td>XMLDOM组件支持</td>" & vbCrLf
Response.Write "                    <td class=""t4"">" & Object_Install_GetVer("Microsoft.XMLDOM",1) & "</td>" & vbCrLf
Response.Write "                </tr>" & vbCrLf
Response.Write "                <tr>" & vbCrLf
Response.Write "                    <td>XML组件支持</td>" & vbCrLf
Response.Write "                    <td class=""t4"">" & Object_Install_GetVer("MSXML2.XMLHTTP",1) & "</td>" & vbCrLf
Response.Write "                </tr>" & vbCrLf
Response.Write "                <tr>" & vbCrLf
Response.Write "                    <td>AspJpeg组件支持</td>" & vbCrLf
Response.Write "                    <td class=""t4"">" & Object_Install_GetVer("Persits.Jpeg",1) & "</td>" & vbCrLf
Response.Write "                </tr>" & vbCrLf
Response.Write "                <tr>" & vbCrLf
Response.Write "                    <td>Jmail组件支持</td>" & vbCrLf
Response.Write "                    <td class=""t4"">" & Object_Install_GetVer("JMail.Message",1) & "</td>" & vbCrLf
Response.Write "                </tr>" & vbCrLf
Response.Write "                <tr>" & vbCrLf
Response.Write "                    <td>CDONTS组件支持</td>" & vbCrLf
Response.Write "                    <td class=""t4"">" & Object_Install_GetVer("CDONTS.NewMail",1) & "</td>" & vbCrLf
Response.Write "                </tr>" & vbCrLf
Response.Write "                <tr>" & vbCrLf
Response.Write "                    <td>ASPEMAIL组件支持</td>" & vbCrLf
Response.Write "                    <td class=""t4"">" & Object_Install_GetVer("Persits.MailSender",1) & "</td>" & vbCrLf
Response.Write "                </tr>" & vbCrLf
Response.Write "                <tr>" & vbCrLf
Response.Write "                    <td>WebEasyMail组件支持</td>" & vbCrLf
Response.Write "                    <td class=""t4"">" & Object_Install_GetVer("LyfUpload.UploadFile",1) & "</td>" & vbCrLf
Response.Write "                </tr>" & vbCrLf
Response.Write "                <tr>" & vbCrLf
Response.Write "                    <td>系统版本</td>" & vbCrLf
Response.Write "                    <td class=""t4"">" & CHR(87)&CHR(97)&CHR(110)&CHR(103)&CHR(75)&CHR(97)&CHR(105)&CHR(67)&CHR(77)&CHR(83)&CHR(32)&SystemEdition&CHR(32)&CHR(86)&SystemVersion&CHR(40)&Replace(Replace(Replace(SystemDatabaseType,0,"ACCESS"),1,"MSSQL"),2,"MYSQL")&CHR(41)&CHR(32)&SystemBuildDate&CHR(32)&CHR(40)&Charset&CHR(41) & "</td>" & vbCrLf
Response.Write "                </tr>" & vbCrLf
Response.Write "                </tbody>" & vbCrLf
Response.Write "            </table>" & vbCrLf
Response.Write "        </div>" & vbCrLf
Response.Write "    </div>" & vbCrLf
Response.Write "    <script type=""text/javascript"" src=""Js/main.js""></script>" & vbCrLf
Response.Write "</div>" & vbCrLf
Response.Write "</body>" & vbCrLf
Response.Write "</html>"
%>